home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2000 July / macformat-092.iso / MacFormat 92 CD / Shareware Plus / Utilities / FolderSynchronizer 1.8.9 / FoldersSynchronizer / FoldersSynchronizer.9 / AllScripts_37_ScrIncreaseTimer.ls < prev    next >
Encoding:
Text File  |  2000-05-10  |  1.5 KB  |  59 lines
  1. on mouseDown me
  2.   set mySprite to the spriteNum of me
  3.   set myTextMember to the name of member the member of sprite (mySprite - 1)
  4.   case myTextMember of
  5.     "fDaysIntervallo":
  6.       set MaxValore to 366
  7.     "fHoursIntervallo":
  8.       set MaxValore to 23
  9.     "fMinutesIntervallo":
  10.       set MaxValore to 59
  11.     "fStartMonth":
  12.       set MaxValore to 12
  13.     "fStartDay":
  14.       set MaxValore to 31
  15.     "fStartYear":
  16.       set MaxValore to 3000
  17.     "fStartHour":
  18.       set MaxValore to 23
  19.     "fStartMinute":
  20.       set MaxValore to 59
  21.   end case
  22.   set Valore to value(field myTextMember)
  23.   if Valore >= MaxValore then
  24.     exit
  25.   end if
  26.   if the rollOver <> mySprite then
  27.     exit
  28.   end if
  29.   set myBtnUp to the name of member the member of sprite mySprite
  30.   if Valore < MaxValore then
  31.     set the member of sprite mySprite to BtnDw(myBtnUp)
  32.     updateStage()
  33.     set Valore to Valore + 1
  34.     put Valore into field myTextMember
  35.   end if
  36.   repeat with i = 1 to 5000
  37.     if the mouseUp then
  38.       set the member of sprite mySprite to myBtnUp
  39.       updateStage()
  40.       exit
  41.     end if
  42.   end repeat
  43.   repeat while the stillDown and (Valore < MaxValore)
  44.     if the rollOver = mySprite then
  45.       set the member of sprite mySprite to BtnDw(myBtnUp)
  46.       set Valore to value(field myTextMember) + 1
  47.       if Valore > MaxValore then
  48.         exit repeat
  49.       end if
  50.       put Valore into field myTextMember
  51.     else
  52.       set the member of sprite mySprite to myBtnUp
  53.     end if
  54.     updateStage()
  55.   end repeat
  56.   set the member of sprite mySprite to myBtnUp
  57.   updateStage()
  58. end
  59.